#!/usr/bin/perl

# Иванов Илья
# 24.11.2013

# ЗАДАНИЕ:
# Создать запрос для определения в тексте цифр, за которыми не стоит знак +.

# РЕШЕНИЕ:
# Выделяет в тексте искомую последовательность цифр скобками [].

while ($line = <>) {
	$line =~ s/(\d+)([^\d+])/[$1]$2/g;
	print $line;
}
